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CABRILLO TEST GRADER 


DECUS PROGRAM LIBRARY WRITE-UP 


DKCIJS NO* 8- 654 


WRITTEN BY 


DON SINGER 

MATHEMATICS INSTRUCTOR 
FOREST GROVE UNION HIGH SCHOOL 


SUBMITTED BY* CABRILLO COMPUTER CENTER 


4350 CONSTELLATION ROAD 
LOMPOC* CA 93436 


ABSTRACT 


CABRILLO TEST GRADER IS AN ASSEMBLY LANGUAGE VERSION OF DEC’S EDU-TEST 
IROGRAM. EDU-TEST PRINTS OUT TOO MUCH* HANDLES TOO FEW STUDENTS AND/OP 
QUESTIONS* /WD SLOPPY CARD MARKING FOULS IT UP COMPLETELY. THIS PRO¬ 
GRAM CORRECTS EACH TEST* PRODUCES A STUDENT PRINTOUT WITH EITHER 
BIGHT OR WRONG QUESTIONS LISTED (OR SUPPRESSES STUDENT PRINTOUT)* 
FRODUCES A CLASS LIST SHOWING THE NUMBER OF QUESTIONS EACH STUDENT GOT 
RIGHT* HIS PERCENTAGE SCORE* AND AN ITEM ANALYSIS SHOWING HOW MANY 
TIMES EACH QUESTION WAS MISSED AND THE CORRECT ANSWER AS READ FROM THE 
KEY CARD. IT USES REGULAR EDU-TEST CARDS AND IS FAST AND VIRTUALLY 
FOOLPROOF. 

LOADING INSTRUCTIONS 


LOAD WITH THE BIN LOADER* STARTING ADDRESS 0200* NO SWITCH OPTIONS. 
LIMITS 


999 STUDENTS* 100 QUESTIONS PER STUDENT 
FORMAT 


USES STANDARD DEC EDU-TEST CARDS 


KEY CARD 


COLUMNS 1&2 
COLUMNS 3 
COLUMNS 6*7 
REMAINING 


TEST NUMBER 
PART NUMBER 


COURSE NUMBER 

ANSWERS (CAN BE "A” THRU "E" OR ANY 
COMBINATION) 


END OF TEST INDICATOR IS IN QUESTION # BOX FOLLOWING 
LAST QUESTION. IT MUST BE ON A SUBSEQUENT PART # 
CARD IF THERE ARE EXACTLY 25* 50* OR 75 QUESTIONS. 
NOT NECESSARY FOR EXACTLY 100 QUESTIONS. 


STUDENT CARD 











COLUMN 1 
COLUMN 2 
COLUMN 3 
COLUMNS 6*7 
REMAINING 

UNUSED 

HUNDREDS DIGIT OF STUDENT NUMBER 

PART NUMBER 

TENS PND ONES DIGIT OF STUDENT # 

STUDENT ANSWERS (MUST MATCH KEY CARD 
EXACTLY TO BE COUNTED RIGHT.) 


NO END OF TEST MARK IS NECESSARY. 

END OF DECK 

P*JY BLANK EDU-30 CARD (NON DATA CARD) 


OPTIONS 


COMPUTER'S QUESTION 

RESPONSES 

TYPE WRONG ANS? 

Y STARTS GRADING WITH WRONG ANSWERS 
TYPED ON STUDENT PRINTOUT. ANY OTHER 

CHARACTER CAUSES IT TO ASK THE NEXT 
QUESTION. 

TYPE RIGHT ANS? 

Y STARTS GRADING WITH RIGHT ANSWERS 
TYPED ON STUDENT PRINTOUT. ANY OTHER 
CHARACTER CAUSES IT TO GO TO NEXT 
QUESTION. 

NO STUDENT TYPEOUT? 

Y SUPPRESSES ALL STUDENT PRINTOUT. 
f*iY OTHER CHARACTER RESTARTS QUESTIONS. 

KEY CARDS IN WRONG ORDER? 

CORRECT ORDER AND TYPE ANY CHARACTER OR 
TYPE CONTROL/B TO RESTART TEST GRADER. 

STUDENT CARDS IN WRONG ORDER? 

CORRECT ORDER AND TYPE ANY CHARACTER 

OR TYPE CONTROL/R TO RESTART STUDENT 
SECTION WITH PART 1 OR CONTROL/B TO 
RESTART TEST GRADER FROM BEGINNING. 

CARD READER READY? 

TYPE ANY CHARACTER TO READ CARD OR USE 
CONTROL OPTIONS DESCRIBED ABOVE. 

RETURN TO BASIC? 

TYPE Y TO RETURN. ANY OTHER CHARACTER 
RESTARTS TEST GRADER. (WORKS WITH 

NON-POWER-FAIL-RESTART CARD DEC BASIC 
USING DF32 DISK. REPLACE ROUTINE WITH 
YOUR BOOTSTRAP IF USING DIFFERENT 
SYSTEM.) 


FEATURES 


MESSAGE 

ACTION TAKEN 


NO STUDENT # 


PRINTS MESSAGE* PAUSES* AWAITS CONTROL OPTIONS* 






PEFORMS CORRECTLY IF CORRECTIONS MADE TO 
CARDS* IF CORRECTION NOT MADE AND NON-CONTROL 
CHARACTER IS TYPED IT GRADES TEST ANYWAY; DOES 
NOTHING WITH SCORE; AND ADDS TO ITEM ANALYSIS. 

DUP STUDENT # PRINTS MESSAGE; PAUSES; AWAITS CONTROL OPTIONS 

OR CARD CORRECTION AS ABOVE. IF CORRECTION 
NOT MADE AND NON-CONTROL CHARACTER IS TYPED IT 
GRADES TEST ANYWAY; SCORE FOR THE LAST STUDENT’S 
TEST IS READ /*ID ENTERED IN TABLE OVERWRITING 
THE PREVIOUS STUDENT’S; AND ADDS TO ITEM 
ANALYSIS. 


APOLOGIES 


NO COMMENTS ARE INCLUDED IN THE LISTING. WITH A PAPER TAPE SYSTEM; 
COMMENTS ARE A LUXURY WE CANNOT AFFORD. FEEL FREE TO WRITE THE COMPUTER 
CENTER IF YOU HAVE ANY QUESTIONS. 
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SAMPLE RUN 


**CABRILLO TEST GRADER** 

TYPE WRONG ANS?Y 

CARD READER READY? 

Y 


T# 10 C# 
INCORRECT 
5 7 

# CORRECT 
OUT OF 

T# 10 C# 

INCORRECT 
2 14 

# CORRECT 
OUT OF 

T# 10 C# 

INCORRECT 

# CORRECT 
OUT OF 

T# 10 C# 


1 S# 


12 14 15 

10 

15 

66 % 


1 S# 


13 

15 

86 % 


1 S# 


15 

15 

100 % 


STU# #CORRECT 
101 10 66 % 


101 


202 


322 


4 



202 13 86% 
322 15 100% 


Q# #M KEY 

1 0 1 

2 1 2 

3 0 3 

4 0 A 

5 1 5 

6 0 1 

7 1 2 

8 0 3 

9 0 4 

10 0 5 

11 0 1 

12 1 2 

13 0 3 

14 2 4 

15 1 5 


**** 

TEST GRADING FINISHED 


RETURN TO BASIC? 
N 


**CABRILLO TEST GRADER** 


TYPE WRONG ANS7N 
TYPE RIGHT ANS?Y 


T# 10 C# 


S# 101 


CORRECT 

1 2 3 4 6 


# CORRECT 10 

OUT OF 15 

66 % 


CARD READER READY? 


9 10 11 13 


5 







Y 


1 S# 202 


4 5 6 7 8 9 10 11 12 13 15 

13 

15 

86 % 


1 S# 322 


3 4 5 6 7 8 9 10 1 1 12 13 


15 

15 

100 % 


T# 10 C# 1 


STU# #CORRECT 


101 

10 

66% 

202 

13 

86% 

322 

15 

100% 


mm mm 



Q# 

#M 

KEY 

1 

0 

1 

2 

l 

2 

3 

0 

3 

4 

0 

4 

5 

1 

5 

6 

0 

1 


T# 10 C# 

CORRECT 

l 3 

# CORRECT 
OUT OF 


T# 10 C# 

CORRECT 

1 2 
15 

# CORRECT 
OUT OF 


14 
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7 1 2 

8 0 3 

9 0 4 

10 0 5 

11 0 1 

12 1 2 

13 0 3 

14 2 4 

15 1 5 


**** 

TEST GRADING FINISHED 


RETURN TO BASIC? 


**CABRILLO TEST GRADER** 


TYPE WRONG ANS? N 

TYPE RIGHT ANS?N 

NO STUDENT TYPEOUT7N 

TYPE WRONG ANS?N 

TYPE RIGHT iWS?N 

NO STUDENT TYPEOUTtY 
**** 

NO STUDENT # 


T# 10 C# 1 


STU# #CORRECT 

202 13 86% 
212 15 100% 

Q# #M KEY 

1 0 1 

2 1 2 
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3 

4 

5 

6 

7 

8 


0 3 
0 4 
1 5 
0 1 
1 2 
0 3 


9 0 4 

10 0 5 

11 0 1 

12 1 2 

13 0 3 

14 2 4 

15 1 5 


**** 

TEST GRADING FINISHED 


RETURN TO BASIC? 


READY 
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/TEST GRADER BY DON 

AUTO 1 0= 10 

AUTO 1 1= 1 1 

AUTO 14= 14 

AUTO i5= 15 

BUFF PT= 16 

♦ 20 


0020 

0000 

ANSBUF, 0 

0021 

167 0 

CRDRD, CARD 

0022 

0000 

CRDBUF , 0 

0023 

0000 

PARTX, 0 

0024 

0000 

PART, 0 

0025 

0000 

STABUF, 0 

0026 

0000 

TITEMS, 0 

0027 

0000 

ADDRES, 0 

0030 

0000 

TSTNO, 0 

0031 

0000 

TEMPI, 0 

0032 

0000 

TEMP2, 0 

0033 

0000 

CLASN, 0 

0034 

2530 

PERI, PER 

0035 

0000 

BUFST, 0 

0036 

0477 

ANSKY, ANS 

0037 

04 00 

STANS, STU 

004 0 

06 00 

CKANSW, CHKAN 

004 1 

2000 

TPRTOT, TEACH 

0042 

0000 

ITOMPS, 0 

0043 

0000 

NORITE, 0 

0044 

0000 

PROBLM, 0 

0045 

44 00 

STADDB, 44 00 

0046 

4200 

ANSADD, 4200 

0047 

0000 

J, 0 

0050 

0000 

QBUFFR, 0 

0051 

0000 

STUDN, 0 

0052 

0000 

PSTNO, 0 

0053 

0000 

ADDRE1, 0 

0054 

0000 

QNO, 0 

0055 

1000 

TYPX, TYPE 

0056 

1200 

DECI, IDECI 

0057 

0006 

NUMN6, 6 

0060 

7634 

NUM 100, - 144 

006 1 

4600 

QBUFFA, 4600 

0062 

5000 

PTSTNO, 5000 

0063 

0017 

MASK, 17 

0064 

2043 

ITOMPT, ITPRT 

0065 

4000 

CRDADD, 4000 

0066 

4000 

BUFFST, 4000 

0067 

0000 

NO, 0 

007 0 

0010 

TMPN9, 10 

007 1 

7773 

TMPN5, 0-5 

0072 

0000 

K, 0 

0073 

0000 

IX, 0 

0074 

0000 

TEMPS, 0 

0075 

1650 

INMPAC, 1650 

0076 

2200 

SETUPI, SETUP 

0077 

4 002 

FOUR, 4 002 


SINGER 
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0100 0000 TEMP3, 00 

0101 6023 NUM999,6023 

0102 0000 TMPSTN, 0 

/CI/WGE 2 DEC DIGITS TO BIN WORD 


0103 

0000 

NUMPK, 0 

0104 

1031 

TAD 

TEMPI 

0105 

0063 

AND 

MASK 

0106 

3031 

DC A 

TEMPI 

0107 

1032 

TAD 

TEMP2 

01 10 

0063 

AND 

MASK 

01 1 1 

7 104 

CLL 

RAL 

01 12 

3032 

DCA 

TEMP2 

01 13 

1032 

TAD 

TEMP2 

01 14 

103 1 

TAD 

TEMPI 

01 15 

303 1 

DCA 

TEMPI 

01 16 

1032 

TAD 

TEMP2 

01 17 

7 006 

RTL 


0120 

1031 

TAD 

TEMPI 

012 1 

3031 

DCA 

TEMPI 

0122 

1100 

TAD 

TEMP3 

0123 

0063 

AND 

MASK 

0124 

7 104 

CLL 

RAL 

0125 

3100 

DCA 

TEMP3 

0126 

1100 

TAD 

TEMP3 

0127 

7 006 

RTL 


0130 

1100 

TAD 

TEMP3 

0131 

3100 

DCA 

TEMP3 

0132 

1100 

TAD 

TEMP3 

0133 

7 104 

CLL 

RAL 

0134 

3100 

DCA 

TEMP3 

0135 

1100 

TAD 

TEMP3 

0136 

7006 

RTL 


0137 

1100 

TAD 

TEMP3 

0140 

103 1 

TAD 

TEMPI 

014 1 

3031 

DCA 

TEMPI 

0142 

7200 

CLA 


0143 

3100 

DCA 

TEMP3 

0144 

103 1 

TAD 

TEMPI 

0145 

5503 

JMP 

I NUMPK 




/KEYBOARD RESPONSE 

0146 

0000 

KEY, 

0 

0147 

7200 

CLA 


0150 

6 031 

KSF 


0151 

5150 

JMP 

1 

0152 

6036 

KRB 


0153 

6046 

TLS 


0154 

704 1 

CIA 


0155 

3170 

DCA 

REPLY 

0156 

1 170 

TAD 

REPLY 

0157 

117 1 

TAD 

CNTRLB 

0160 

745 0 

SNA 


0161 

5573 

JMP 

I BACK 

0162 

7200 

CLA 
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0163 

1170 

TAD REPLY 

0164 

1 172 

TAD CNTRLR 

0165 

7450 

SNA 

0166 

5574 

JMP I BACK2 

0167 

5546 

JMP I KEY 

0170 

0000 

REPLY/ 0 

017 1 

0202 

CNTRLB/ 202 

0172 

0222 

CNTRLR/ 222 

0173 

0200 

BACK/ START 

0174 

027 0 

BACK2/ N2 04 
/MAIN PROGRAM 
*200 

0200 

4455 

START/ JMS I TYPX 

0201 

1400 

TITLE 

0202 

4476 

JMS I SETUPI 

02 03 

7201 

CLA I AC 

0204 

3023 

DCA PARTX 

02 05 

4421 

N201/ JMS I CRDRD 

0206 

1024 

TAD PART 

0207 

7 04 1 

CIA 

0210 

1023 

TAD PARTX 

0211 

7450 

SNA 

0212 

5223 

JMP N202 

02 13 

4455 

CHK1/ JMS I TYPX 

0214 

1443 

KEYVRG 

02 15 

4455 

JMS I TYPX 

0216 

15 13 

CDRDY 

02 17 

4 146 

JMS KEY 

0220 

7000 

NOP 

0221 

7000 

NOP 

0222 

5205 

JMP N20 1 

02 23 

7300 

N202/ CLA CLL 

0224 

1065 

TAD CRD ADD 

02 25 

7001 

I AC 

02 26 

3027 

DCA ADDRES 

0227 

1427 

TAD I ADDRES 

02 3 0 

3032 

DCA TEMP2 

023 1 

2027 

ISZ ADDRES 

02 32 

1427 

TAD I ADDRES 

0233 

303 1 

DCA TEMPI 

0234 

4 103 

JMS NUMPK 

02 3 5 

3030 

DCA TSTNO 

02 36 

1065 

TAD CRD ADD 

0237 

1057 

TAD NUMN6 

024 0 

3027 

DCA ADDRES 

024 1 

1427 

TAD I ADDRES 

0242 

3032 

DCA TEMP2 

0243 

2027 

ISZ ADDRES 

0244 

1427 

TAD I ADDRES 

0245 

303 1 

DCA TEMPI 

0246 

4 103 

JMS NUMPK 

0247 

3033 

DCA CLASN 

0250 

106 0 

TAD NUM 100 

0251 

3047 

DCA J 

025 2 

106 1 

TAD QBUFFA 

02 53 

3010 

DCA AUTO 10 

02 54 

34 10 

N203/DCA I AUTO 11 

0255 

2047 

ISZ J 




0256 
0257 
0260 
026 1 
026 2 

0263 
0264 
0265 
0266 
0267 
027 0 
027 1 
027 2 
027 3 
0274 
027 5 
027 6 
02 7 7 
0300 
0301 
03 02 
03 03 
0304 
03 05 
0306 
0307 
0310 
031 1 
0312 
03 13 
03 14 
0315 
0316 
0317 
03 2 0 
0321 
0322 
0323 
0324 
0325 
03 26 
0327 
033 0 
0331 
033 2 
03 33 
03 34 

03 35 
03 36 
0337 
034 0 
034 1 
0342 
0343 
0344 
0345 


5254 JMP N203 

1101 TAD NUM999 

3047 DC A J 

1062 TAD PTSTNO 

3011 DCA AUTO 11 

7040 JM PU P# CM A 

34 1 1 DC A I AUTO 1 1 

2047 ISZ J 

5263 JMP JMPUP 

44 36 JMS I AN SKY 
4421 N204# JMS I CRDRD 

7201 N206# CLA I AC 
3023 DCA PARTX 

1023 TAD PARTX 

7 04 1 CIA 

1024 TAD PART 
7450 SNA 
5306 JMP N205 

4455 CHK2# JMS I TYPX 
1466 STUWRG 
4455 JMS I TYPX 
1513 CDRDY 
4 146 JMS KEY 
5270 JMP N204 
7200 N205# CLA 

1065 TAD CRD ADD 
1057 TAD NUMN6 
3027 DCA ADDRES 
1427 TAD I ADDRES 
3032 DCA TEMP2 
2027 ISZ ADDRES 
1427 TAD I ADDRES 
3031 DCA TEMPI 
1477 TAD I FOUR 

3100 DCA TEMP3 

4 103 JMS NUMPK 
4777 JMS I SCHEKI 
4437 JMS I STANS 

4440 JMS I CKANSW 
4421 JMS I CRDRD 
1065 TAD CRD ADD 
1057 TAD NUMN6 

7041 CIA 
7 04 0 CM A 

3027 DCA ADDRES 
1427 TAD I ADDRES 
7440 SZA 
527 1 JMP N206 

4441 JMS I TPRTOT 
4464 JMS I ITOMPT 
4455 JMS I TYPX 
1421 ENDTST 

4455 OUT# JMS I TYPX 
1533 RBASIC 
6031 KSF 
5344 JMP 1 





0346 

6036 

KRB 

0347 

6046 

TLS 

035 0 

7 04 1 

CIA 

035 1 

1376 

TAD YASCI I 

03 5 2 

7450 

SNA 

0353 

5355 

JMP .+2 

0354 

5200 

JMP START 

0355 

7200 

CLA 

0356 

1374 

TAD B 1 

035 7 

377 1 

DCA I A7750 

036 0 

1374 

TAD B1 

036 1 

3772 

DCA I A7751 

0362 

1375 

TAD B2 

0363 

3773 

DCA I A7770 

0364 

66 03 

66 03; 

0365 

6622 

6622 

0366 

5365 

JNP .-1 

0367 

5770 

JMP I A76 00 

037 0 

7600 

A7600s 76 00 

037 1 

7750 

A7750, 7750 

037 2 

7751 

A7751s 7751 

037 3 

7770 

A7770, 7770 

0374 

7577 

Bl* 7577 

037 5 

0000 

B2s 0 

0376 

0331 

YASCIIs 331 

0377 

1603 

SCHEKIs SCHEK 

/STU /NS PROC ROUTINE 

*400 

0400 

0000 

STUs 0 

0401 

7200 

CLA 

04 02 

3067 

DCA NO 

04 03 

1045 

TAD STADDB 

04 04 

3010 

DCA AUTO 10 

04 05 

7001 

I AC 

04 06 

3023 

DCA PARTX 

04 07 

4242 

N403s JMS SRTCD 

04 10 

7200 

CLA 

04 1 1 

107 0 

TAD TMPN9 

04 12 

1065 

TAD CRD ADD 

04 13 

3011 

DCA AUTO 11 

04 14 

107 1 

TAD TMPN5 

04 15 

3072 

DCA K 

04 16 

107 1 

N402, TAD TMFN5 

04 17 

307 3 

DCA IX 

0420 

4267 

N401s JMS ENDSTS 

0421 

7200 

CLA 

0422 

14 1 1 

TAD I AUTO 1 1 

0423 

34 10 

DCA I AUTO 10 

0424 

2067 

ISZ NO 

0425 

2073 

ISZ IX 

0426 

5220 

JMP N401 

0427 

2011 

ISZ AUTO 1 1 

04 3 0 

2072 

ISZ K 

0431 

52 16 

JMP N4 02 

0432 

7200 

CLA 

04 3 3 

4267 

JMS ENDSTS 

0434 

2023 

ISZ PARTX 
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0435 

7000 

nop; 

0436 

7000 

NOP 

04 3 7 

442 1 

N4 05s JMS I CRDRD 

044 0 

5207 

JMP N403 

044 1 

56 00 

N404, JMP I STU 

0442 

0000 

SRTCD, 0 

0443 

105 1 

TAD STUDN 

0444 

7 04 1 

CIA 

0445 

1102 

TAD TMPSTN 

0446 

7450 

SNA 

0447 

5252 

JMP . + 3 

045 0 

4455 

JMS I TYPX 

0451 

155 1 

STNUMW 

0452 

1024 

TAD PART 

04 5 3 

704 1 

CIA 

04 54 

1023 

TAD PARTX 

04 5 5 

7450 

SNA 

04 56 

5642 

JMP I SRTCD 

0457 

4455 

CHK3> JMS I TYPX 

046 0 

1466 

STUWRG 

046 1 

4455 

JMS I TYPX 

0462 

15 13 

CDRDY 

0463 

4 146 

JMS KEY 

0464 

7 000 

no p; 

0465 

7 000 

NOP 

0466 

5237 

JMP N405 

0467 

0000 

ENDSTS, 0 

04 7 0 

7200 

CLA 

047 1 

1026 

TAD TITEMS 

04 7 2 

7 04 1 

CIA 

04 7 3 

1067 

TAD NO 

04 74 

7440 

SZA 

0475 

5667 

JMP I ENDSTS 

047 6 

524 1 

JMP N4 04 

047 7 

0000 

AN S> 0 

05 0 0 

7201 

CLA I AC 

0501 

3067 

DC A NO 

05 02 

1046 

TAD ANSADD 

05 03 

3010 

DCA AUTO 10 

0504 

7001 

I AC 

05 05 

3023 

DCA PARTX 

05 06 

4347 

N213, JMS RTCARD 

05 07 

7200 

CLA 

05 10 

107 0 

TAD TMFN9 

06 1 1 

1065 

TAD CRD ADD 

0512 

3011 

DCA AUTO 11 

05 13 

107 1 

TAD TMPN5 

05 14 

3072 

DCA K 

05 15 

107 1 

N2 12, TAD TMFN5 

0516 

3073 

DCA IX 

05 17 

4365 

N2 1 Is JMS ENDTS 

06 2 0 

7200 

CLA 

0521 

141 1 

TAD I AUTO 1 1 

0522 

34 10 

DCA I AUTO 10 

05 2 3 

2067 

ISZ NO 

05 24 

2073 

ISZ IX 

05 25 

5317 

JMP N2 1 1 
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0526 

201 1 

ISZ AUTO 1 1 

0527 

2072 

ISZ K 

05 3 0 

5315 

JMP N2 12 

053 1 

2023 

ISZ PARTX 

05 3 2 

7200 

CLA 

05 3 3 

1023 

TAD PARTX 

0534 

107 1 

TAD TMPN5 

0535 

7450 

SNA 

05 36 

534 1 

JMP N214 

0537 

4421 

N215* JMS I 

054 0 

5306 

JMP N213 

0541 

7200 

N214* CLA 

0542 

1067 

TAD NO 

0543 

7 04 1 

CIA 

0544 

7 04 0 

CM A 

0545 

3026 

DCA TITEMS 

0546 

5677 

JMP I ANS 

0547 

0000 

RTCARD, 0 

05 5 0 

1024 

TAD PART 

055 1 

7 04 1 

CIA 

05 5 2 

1023 

TAD PARTX 

0553 

7450 

SNA 

05 54 

5747 

JMP I RTCAR 

0555 

4455 

JMS I TYPX 

0556 

1443 

KEYWRG 

05 57 

4455 

JMS I TYPX 

056 0 

15 13 

CDRDY 

056 1 

4 146 

JMS KEY 

0562 

7 000 

nop; 

0563 

7 000 

NOP 

0564 

5337 

JMP N215 

0665 

0000 

ENDTS* 0 

0566 

1011 

TAD AUTO 1 1 

0567 

7 001 

I AC 

057 0 

3074 

DCA TEMPS 

067 1 

1474 

TAD I TEMPS 

05 7 2 

7 04 1 

CIA 

057 3 

7 040 

CM A 

05 74 

7440 

SZA 

057 5 

5765 

JMP I ENDTS 

0576 

534 1 

JMP N2 14 
/STUDENT PRI 
*6 00 

06 00 

0000 

CHKANS* 0 

0601 

4455 

JMS I TYPX 

06 02 

105 1 

TTNUM 

06 03 

1030 

TAD TSTNO 

06 04 

4456 

JMS I DECI 

06 05 

4455 

JMS I TYPX 

06 06 

1057 

TCNUM 

06 07 

1033 

TAD CLASN 

06 10 

4456 

JMS I DECI 

061 1 

4455 

JMS I TYPX 

0612 

1 137 

TSTNUM 

06 13 

105 1 

TAD STUDN 

0614 

4456 

JMS I DECI 

06 15 

4455 

JMS I TYPX 


CRDRD 
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06 16 

1062 

TINCT 

06 17 

4243 

JMS CORRCT 

0620 

4455 

JMS I TYPX 

0621 

107 1 

TPERCT 

0622 

1043 

TAD NORITE 

0623 

4456 

JMS I DECI 

0624 

4455 

JMS I TYPX 

0625 

1 136 

TCRLF 

0626 

4455 

JMS I TYPX 

0627 

1100 

TOUTOF 

0630 

1026 

TAD TITEMS 

0631 

4456 

JMS I DECI 

06 32 

4455 

JMS I TYPX 

06 3 3 

1 136 

TCRLF 

06 34 

4455 

JMS I TYPX 

0635 

07 32 

TSPACE 

0636 

4434 

JMS I PERI 

0637 

4456 

JMS I DECI 

0640 

4455 

JMS I TYPX 

064 1 

074 0 

TPER 

0642 

5600 

JMP I CHKANS 

0643 

0000 

CORRCT, 0 

0644 

7200 

CL A 

0645 

3043 

DCA NORITE 

0646 

3044 

DC A PRO BLM 

0647 

1045 

TAD STADDB 

06 5 0 

3014 

DCA AUTO 14 

0651 

1046 

TAD ANSADD 

06 5 2 

3015 

DCA AUTO 15 

0653 

1026 

TAD TITEMS 

0654 

7 04 1 

CIA 

06 5 5 

3047 

DCA J 

0656 

106 1 

TAD QBUFFA 

06 57 

305 0 

DCA QBUFFR 

066 0 

1331 

TAD N 14 

066 1 

3330 

DCA COLCNT 

0662 

2050 

N306, ISZ QBUFFR 

0663 

2044 

ISZ PRO BLM 

06 64 

14 15 

TAD I AUTO 15 

0665 

7 04 1 

CIA 

0666 

14 14 

TAD I AUTO 14 

0667 

744 0 

SZA 

067 0 

5326 

JMP P 

067 1 

5302 

JMP LI 02 

06 7 2 

2047 

N308, ISZ J 

06 7 3 

5262 

JMP N306 

06 74 

43 16 

JMS PERCNT 

06 7 5 

5643 

JMP I CORRCT 

067 6 

1450 

L 10 1, TAD I QBUFF 

067 7 

7001 

I AC 

0700 

3450 

DCA I QBUFFR 

0701 

7 000 

LI 03, NOP 

07 02 

2043 

LI02, ISZ NORITE 

07 03 

7000 

Ll 04, NOP 

07 04 

7200 

N307, CLA 

07 05 

1044 

TAD PRO BLM 

07 06 

4456 

JMS I DECI 


# 
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07 07 

2330 

ISZ COLCNT 

0710 

5315 

JMP .+5 

07 1 1 

4455 

JMS I TYPX 

01 12 

1 136 

TCRLF 

07 13 

1331 

TAD N 14 

07 14 

3330 

DCA COLCNT 

07 15 

5272 

JMP N3 08 

07 16 

0000 

PERCNT, 0 

07 17 

7200 

CLA 

0720 

1062 

TAD PTSTNO 

0721 

105 1 

TAD STUDN 

0722 

3027 

DCA ADDRES 

0723 

1043 

TAD NORITE 

0724 

3427 

DCA I ADDRES 

07 2 5 

57 16 

JMP I PERCNT 

0726 

7200 

P, CLA 

0727 

5276 

JMP L10 1 

0730 

0000 

COLCNT, 0 

0731 

7762 

N 14, - 16 

0732 

4040 

TSPACE, 4 04 0,* 

07 3 3 

4040 

4 04 0; 

07 34 

4 04 0 

4 04 0; 

0735 

4 04 0 

4040 

0736 

4040 

4 04 0; 

0737 

4000 

4000 

0740 

4537 

TPER, 4537; 

074 1 

0000 

0 

/MESSAGE TYPIN SUBR 
* 1 000 

BSW=7 002 

1000 

0000 

TYPE, 0 

1001 

7300 

CLA CLL 

1002 

6 046 

TLS 

1003 

1600 

TAD I TYPE 

1004 

3215 

DCA TYPNT 

1005 

2200 

ISZ TYPE 

1006 

16 15 

TYPX 1, TAD I TYPNT 

1007 

4342 

JMS START 1 

1010 

4216 

JMS TYPY 

1011 

16 15 

TAD I TYPNT 

1012 

2215 

ISZ TYPNT 

1013 

4216 

JMS TYPY 

1014 

5206 

JMP TYPX 1 

1015 

0000 

TYPNT, 0 

1016 

0000 

TYPY, 0 

1017 

0235 

AND TK77 

1020 

7450 

SNA 

1021 

56 00 

JMP I TYPE 

1022 

1244 

TAD TKM37 

i023 

7440 

SZA 

1024 

5230 

JMP TYPY 1 

1025 

1245 

TAD TK2 15 

1026 

4236 

JMS TLSX 

1027 

1246 

TAD TKM125 

1030 

75 10 

TYPY 1, SPA 

1031 

1247 

TAD TK100 

1032 

1250 

TAD TK237 
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1033 

4236 

1034 

56 16 

1035 

0077 

1036 

0000 

1037 

604 1 

104 0 

5237 

104 1 

6 046 

1042 

7200 

1043 

5636 

1044 

774 1 

1045 

0215 

1046 

7653 

1047 

0100 

1050 

0237 

1051 

3737 

1052 

5555 

1053 

5555 

1054 

3737 

1055 

2443 

1056 

4000 

1057 

4 04 0 

106 0 

0343 

106 1 

4000 

1062 

3737 

1063 

1 l 16 

1064 

0317 

1065 

2222 

1066 

0503 

1067 

2437 

107 0 

3700 

107 1 

3737 

1072 

4340 

1073 

0317 

1074 

2222 

1075 

05 03 

1076 

244 0 

1077 

4000 

1100 

1725 

1101 

244 0 

1102 

17 06 

1103 

4 04 0 

1104 

4 04 0 

1105 

4000 

1106 

3737 

1107 

3723 

1110 

2425 

111 1 

4340 

1112 

4303 

11 13 

1722 

11 14 

2205 

1115 

0324 

11 16 

3737 

11 17 

0000 

1120 

3737 

1121 

5555 

1122 

5555 


JMS tlsx 
JMP I TYPY 
TK77, 77 
TLSX* 0 

tsf 

JMP 1 

TLS 

CLA 

JMP I TLSX 
TKM37 » -37 
TK215* 215 
TKM125* -125 
TK100* 100 

TK237* 237 
TTNUM, 3737 
5555 
5555 
3737 
2443 
4 000 

TCNUM, 4040 

0343 

4000 

TINCT* 3737 
1116 
0317 
2222 
05 03 
2437 
3700 

TPERCT * 3737 
434 0 
03 17 
2222 
0503 
244 0 
4000 

TOUTOF » 1725 

244 0 

1706 

4040 

4040 

4000 

TLIST, 3737 
3723 
2425 
4340 
4303 
1722 
2205 
0324 
3737; 

0 

TQUES, 3737 

5555 

5555 





1123 

3737 

3737 

1124 

4 04 0 

4 04 0; 

1125 

4 021 

402 i; 

1126 

4340 

434 0; 

1127 

4040 

4 040; 

1130 

43 15 

43 is; 

1131 

4 040 

4 040; 

1132 

4 04 0 

4 040 

1133 

1305 

1305; 

1134 

3137 

3137; 

1135 

3700 

37 00 

1136 

3700 

TCRLF* 3700 

1137 

4 040 

TSTNUM* 4 04 0 

1140 

2343 

2343 

1141 

4000 

4000 

1142 

0000 

START 1, 0 

1143 

3031 

DCA TEMPI 

1144 

7012 

RTR 

1145 

3032 

DCA TEMP2 

1146 

1031 

TAD TEMPI 

1147 

0356 

AND X7700 

1150 

1031 

TAD TEMPI 

1151 

7006 

RTL 

1152 

7 006 

RTL 

1153 

1032 

TAD TEMP2 

1154 

7 006 

RTL 

1155 

5742 

JMP I START 1 

1156 

7700 

X7700* 7700 

/PRINT # IN A AS DECIMAL NO 
* 1200 

1200 

0000 

IDECI* 0 

1201 

7500 

SMA 

1202 

521 1 

JMP PLUS 

1203 

7 04 1 

CIA 

12 04 

3315 

DCA BUF 

1205 

6 046 

TLS 

1206 

1316 

TAD MINUS 

1207 

4307 

JMS TYPE 1 

1210 

5215 

JMP .+5 

121 1 

3315 

PLUS* DCA BUF 

1212 

6 046 

TLS 

12 13 

13 17 

TAD SPACE 

1214 

4307 

JMS TYPE 1 

1215 

1320 

TAD Ml 

1216 

3321 

DCA SW1 

1217 

1323 

TAD K 1750 

1220 

3324 

DCA ADDN 

1221 

1325 

TAD M2 

1222 

3326 

DCA ADDCTR 

1223 

1322 

TAD M3720 

1224 

1315 

TAD BUF 

1225 

5230 

JMP LP2 

1226 

1315 

LP* TAD BUF 

1227 

1324 

LP1* TAD ADDN 

1230 

7500 

LP2* SMA 

1231 

5262 

JMP TPDIG 

1232 

2326 

ISZ ADDCTR 


19 






1233 

1234 

1235 

1236 

1237 
1240 

124 1 

1242 

1243 

1244 

1245 

1246 

1247 
1250 

125 1 

1252 

1253 

1254 

1255 

1256 

1257 

126 0 
126 1 
126 2 

1263 

1264 

1265 

1266 
1267 
127 0 

127 1 

1272 

1273 

1274 

1275 

1276 

1277 

1300 

1301 

1302 

1303 

1304 

1305 

1306 

1307 
13 10 
131 1 
13 12 

1313 

1314 

1315 

1316 

1317 

1320 

1321 

1322 

1323 


5227 JMP LP1 

1324 TAD ADDN 

3315 DCA BUF 

1321 TAD SW1 

7640 SZA CLA 

5244 JMP .+4 

1327 TAD K260 

4307 JMS TYPE 1 

5246 JMP RESET 

1317 TAD SPACE 

4307 JMS TYPE 1 

1324 RESET, TAD ADDN 
1330 TAD M 1750 

7650 SNA CLA 

5271 JMP HUND 

1324 TAD ADDN 

133 1 TAD M 144 

7650 SNA CLA 

5301 JMP TENS 

1327 TAD K260 

1315 TAD BUF 

4307 JMS TYPE 1 

5600 JMP I IDECI 
3315 TPDIG, DCA BUF 
3321 DCA SW1 

1326 TAD ADDCTR 

7 04 1 CIA 

1327 TAD K260 

4307 JMS TYPE 1 

5246 JMP RESET 

1330 HUND, TAD M1750 
1315 TAD BUF 

3315 DCA BUF 

1332 TAD K 144 

3324 DCA ADDN 

1333 A, TAD M9 

3326 DCA ADDCTR 

5226 JMP LP 

133 1 TENS, TAD M144 
1315 TAD BUF 

3315 DCA BUF 

1334 TAD K 12 

3324 DCA ADDN 

5276 JMP A 

0000 TYPE 1, 0 
6 04 1 TSF 

5310 JMP <>- 1 

6 046 TLS 

7200 CLA 

57 07 JMP I TYPE 1 

0000 BUF, 0 

0255 MINUS, 0255 
024 0 SPACE, 024 0 
7777 Ml, 7777 
0000 SW1, 0 

4060 M3720, 4060 

1750 K1750, 1750 
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1324 

0000 

1325 

7776 

1326 

0000 

1327 

026 0 

1330 

6030 

1331 

7634 

1332 

0144 

1333 

7767 

1334 

0012 


14 00 

3737 

14 01 

3752 

14 02 

5203 

14 03 

0102 

14 04 

2211 

14 05 

14 14 

14 06 

1740 

14 07 

2405 

14 10 

2324 

14 1 1 

4007 

14 12 

2201 

14 13 

04 05 

14 14 

2252 

14 15 

5237 

14 16 

0000 

14 17 

0000 

1420 

0000 

1421 

37 37 

1422 

5252 

1423 

5252 

1424 

3724 

1425 

0523 

1426 

244 0 

i427 

07 22 

1430 

0104 

1431 

1 1 16 

1432 

074 0 

1433 

06 1 1 

1434 

16 1 1 

1435 

2310 

1436 

05 04 

1437 

3700 

144 0 

0000 

144 1 

0000 

1442 

0000 

1443 

3755 

1444 

5555 

1445 

5537 

1446 

1305 

1447 

3 140 

1450 

0301 

1451 

2204 

i452 

234 0 

1453 

1 1 16 


ADDN* 0 
M2, mb 
ADDCTR, 0 
K26 0, 26 0 
M 1750# 6030 
Ml44, 7634 
Kl44, 0144 

M9, 7767 

K12, 12 

/MORE TEXT 
* 1400 

TITLE, 37 37 $ 
3752; 

5203; 

0 1 02; 

2211 
14 14; 

174 0; 

24 05; 

2324; 

4007 

2201; 

04 05; 

2252; 

5237; 

0; 

0; 

0 

ENDTST, 3737; 
5252; 

5252; 

3724 

0523; 

244 0; 

0722; 

0104; 

1 1 16 
0740; 

06 11; 

16 11; 

2310; 

0504 
37 00; 

0; 

0; 

0 

KEYWRG, 3755; 
5555; 

5537; 

1305 
3 14 0,* 

0301; 

2204; 

234 0; 

1 1 16 




1454 

4027 

4 027; 

1455 

2217 

2217; 

1456 

16 07 

1607; 

1457 

4017 

4017; 

1460 

22 04 

2 2 04; 

146 1 

0522 

0522 

1462 

37 00 

37 00; 

1463 

0000 

0; 

1464 

0000 

0; 

1465 

0000 

0 

1466 

3755 

STUWRG* 375 

1467 

5555 

5555; 

147 0 

5537 

5537; 

147 1 

2324 

2324; 

1472 

25 04 

25 04 

1473 

05 16 

05 16; 

1474 

244 0 

244 0; 

1475 

03 01 

0301 ; 

1476 

22 04 

2204; 

1477 

2340 

234 0 ; 

1500 

1 116 

1 1 16 

15 01 

4 027 

4 027; 

1502 

2217 

2217; 

1503 

1607 

1607; 

15 04 

4017 

4017; 

1505 

2204 

2204J 

1506 

0522 

0522 

15 07 

37 00 

37 00; 

1510 

0000 

0 ; 

15 1 1 

0000 

0 ; 

14 12 

0000 

0 

15 13 

3755 

CDRDY » 3755 

15 14 

5555 

5555; 

1515 

5537 

5537; 

1516 

0301 

0301; 

15 17 

2204 

2204 

1520 

4022 

4022; 

1521 

05 01 

0501; 

1522 

0405 

0405 ; 

1523 

224 0 

224 0 ; 

1524 

2205 

2205; 

1525 

0104 

0104 

1526 

3177 

3177; 

1527 

37 00 

3700 ; 

1530 

0000 

0 ; 

153 1 

0000 

0 ; 

1532 

0000 

0 

1533 

3755 

RBASIC, 375 

1534 

5555 

5555; 

1535 

5537 

5537; 

1536 

22 05 

2205; 

1537 

24 25 

2425 

154 0 

2216 

2216; 

154 1 

4 024 

4 024; 

1542 

1740 

1740; 

1543 

0201 

0201 ; 
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15-44 

23 1 1 

2311; 

1545 

0377 

0377 

1546 

3737 

3737>* 

1547 

0000 

0 ; 

1550 

0000 

0 

1551 

3755 

STNUMW, 3755; 

1552 

5555 

5555; 

1553 

5537 

5537; 

1554 

2324 

2324; 

1555 

2556 

2556 

1556 

05 16 

05 16; 

1557 

244 0 

244 0; 

1560 

1625 

1625; 

1561 

1502 

1502 ; 

1562 

0522 

0522; 

1563 

234 0 

234 0 

1564 

04 17 

04 17 ; 

1565 

4016 

4016; 

1566 

1724 

1724; 

1567 

4015 

4 015; 

157 0 

0124 

0124; 

i57 1 

0310 

0310 

1572 

37 00 

3700; 

1573 

0000 

0 ; 

1574 

0000 

0 ; 

1575 

0000 

0 



/STUD%NT # %HECK 
*1603 

16 03 

0000 

SCHEK, 0 

1604 

305 1 

DCA STUDN 

16 05 

105 1 

TAD STUDN 

1606 

744 0 

SZA 

1607 

5214 

JMP DUPSNO 

16 10 

4455 

JMS I TYPX 

161 1 

1626 

ZSTUNO 

16 12 

4 146 

JMS KEY 

16 13 

5603 

JMP I SCHEK 

1614 

1062 

DUPSNO, TAD PTSTNO 

16 15 

3225 

DCA TLOC 

16 16 

1625 

TAD I TLOC 

16 17 

7530 

SPA SZL 

1620 

56 03 

JMP I SCHEK 

1621 

4455 

JMS I TYPX 

1622 

1640 

DUPSTN 

1623 

4 146 

JMS KEY 

1624 

56 03 

JMP I SCHEK 

1625 

0000 

TLOC, 0 

1626 

3752 

ZSTUNO, 3752; 

1627 

5252 

5252; 

1630 

5237 

5237; 

163 1 

16 17 

16 17; 

1632 

4 023 

4 023 

1633 

2425 

2425; 

1634 

04 05 

04 05; 

1635 

1624 

1624; 
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1636 

4 043 

4 04 3; 

1637 

37 00 

3700 

164 0 

3752 

DUPSTN* 3752; 

164 1 

5252 

5252; 

1642 

5237 

5237; 

1643 

04 25 

04 25 

1644 

204 0 

204 0; 

1645 

2324 

2324; 

1646 

25 04 

25 04; 

1647 

05 16 

05 16; 

1650 

244 0 

244 0; 

165 1 

4337 

4337; 

1652 

0000 

0000 

/READS A CARD INTO THE BUFFER 
RCSD=6671 

RCRB=6634 

RCSE=6672 

RCSF=6631 

RCRA=6632 
* 167 0 

167 0 

0000 

CARD, 0 

167 1 

7300 

CLA CLL 

1672 

1066 

TAD BUFF ST 

1673 

3016 

DCA BUFF PT 

1674 

1357 

TAD N37 

1675 

3356 

DCA ENUF 

1676 

6634 

RCRB 

1677 

6672 

ROSE 

17 00 

5347 

JMP NOTRDY 

17 01 

7000 

RD* NOP 

17 02 

7200 

CLA 

17 03 

1355 

TAD CONST 

17 04 

3353 

DCA TEMP0 

17 05 

3354 

DCA TEMP8 

17 06 

6631 

TEST* RCSF 

17 07 

534 0 

JMP EOC 

17 10 

6632 

RCRA 

17 1 1 

34 16 

DCA I BUFF PT 

17 12 

7000 

NOP 

17 13 

5306 

JMP TEST 

17 14 

7300 

DO PART * CLA CLL 

17 15 

7221 

CLA CML I AC 

17 16 

7 004 

RAL 

17 17 

1066 

TAD BUFF ST 

1720 

3027 

DCA ADDRES 

172 1 

1427 

TAD I ADDRES 

1722 

3024 

DCA PART 

17 23 

1065 

TAD CRD ADD 

1724 

1057 

TAD NUMN6 

1725 

3027 

DCA ADDRES 

1726 

1427 

TAD I ADDRES 

1727 

3032 

DCA TEMP2 

1730 

2027 

ISZ ADDRES 

17 31 

1427 

TAD I ADDRES 

1732 

3031 

DCA TEMPI 

1733 

147? 

TAD I FOUR 
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1734 

1735 

1736 

1737 
1740 

174 1 

1742 

1743 

1744 

1745 

1746 

1747 
1750 

175 1 

1752 

1753 

1754 

1755 

1756 

1757 


2000 

2001 

2002 

2003 

2004 

2005 

2006 
2007 
2010 
2011 
2012 

2013 

2014 

2015 

2016 
2017 
2020 
2021 
2022 

2023 

2024 

2025 

2026 
2027 

203 0 

2031 

2032 

2033 

2034 

2035 

2036 

2037 
2040 

204 1 

2042 

2043 


3100 DC A TEMP3 

4 103 JMS NUMPK 

3102 DC A TMPSTN 

5670 JMP I CARD 

6671 EOC, RCSD 

5343 JMP STALL 

5314 JMP DO PART 

2354 STALL, ISZ TEMPS 

5306 JMP TEST 

2353 ISZ TEMP0 

5306 JMP TEST 

4455 NOTRDY, JMS I TYPX 

1513 CDRDY 

4 146 JMS KEY 

527 1 JMP CARD+1 

0000 TEMP0, 0 

0000 TEMP8, 0 

7741 CONST, 7741 

0000 ENUF, 0 

7733 N37, 0-45 

/6EACH PRINTOUT 
*2000 

0000 TEACH, 0 

7200 CLA 

6046 TLS 

4455 JMS I TYPX 

1051 TTNUM 

1030 TAD TSTNO 

4456 JMS I DECI 

4455 JMS I TYPX 

1057 TCNUM 

1033 TAD CLASN 

4456 JMS I DECI 

4455 JMS I TYPX 

1106 TLIST 

7201 CLA I AC 

3051 DCA STUDN 

1101 TAD NUM999 
3047 DCA J 

1062 N6 03, TAD PTSTNO 
105 1 TAD STUDN 

3053 DCA ADDRE 1 

1453 TAD I ADDRE1 
77 10 SPA CLA 

5237 JMP INCR 

105 1 TAD STUDN 

4456 JMS I DECI 

1453 TAD I ADDRE1 

4456 JMS I DECI 

4434 JMS I PERI 

4456 JMS I DECI 

4455 JMS I TYPX 

074 0 T PER 

205 1 INCR, ISZ STUDN 
2047 ISZ J 

5221 JMP N6 03 

56 00 JMP I TEACH 

0000 ITPRT, 0 






2044 

7200 

CL A 

2045 

4455 

JMS I TYPX 

2046 

1 120 

TQUES 

2047 

7201 

CLA 1 AC 

205 0 

3054 

DCA QNO 

205 1 

1026 

TAD TITEMS 

2052 

7 04 1 

CIA 

2053 

3047 

DCA J 

2054 

106 1 

N6 04* TAD QBUFFA 

2055 

1054 

TAD QNO 

2056 

3027 

DCA ADDRES 

2057 

1046 

TAD ANSADD 

2060 

1054 

TAD QNO 

206 1 

3277 

DCA A1 

206 2 

1054 

TAD QNO 

2063 

4456 

JMS I DECI 

2064 

1427 

TAD I ADDRES 

2065 

4456 

JMS I DECI 

2066 

7 04 0 

CM A 

2067 

1677 

TAD I A1 

207 0 

4456 

JMS I DECI 

207 1 

4455 

JMS I TYPX 

2072 

1 136 

TCRLF 

2073 

2054 

ISZ QNO 

2074 

2047 

ISZ J 

2075 

5254 

JMP N6 04 

2076 

5643 

JMP I ITPRT 

2077 

0000 

AI * 0 



/SETU3 FOR TYPE OF PRINTOUT 
*2200 

22 0 0 

0000 

SETUP* 0 

2201 

7200 

CLA 

2202 

1263 

TAD WD1 

22 03 

3730 

DCA I I 1 

2204 

1263 

TAD WD1 

2205 

3731 

DCA I 12 

2206 

1264 

TAD WD2 

2207 

3732 

DCA I 13 

2210 

4455 

GOOF* JMS I TYPX 

22 11 

2273 

WRONG 

22 12 

425 1 

JMS GTANS 

2213 

522 1 

JMP RIGHT 

22 14 

1265 

TAD WD3 

2215 

3733 

DCA I 14 

2216 

1266 

TAD WD4 

2217 

3734 

DCA I 15 

2220 

5600 

JMP I SETUP 

2221 

4455 

RIGHT* JMS I TYPX 

2222 

2304 

RITE 

2223 

425 1 

JMS GTANS 

2224 

5234 

JMP NO PROT 

22 25 

1266 

TAD WD4 

2226 

3733 

DCA I 14 

2227 

1267 

TAD WD5 

22 3 0 

37 34 

DCA I 15 
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2231 

127 0 

TAD WD6 

2232 

3732 

DCA I 13 

2233 

56 00 

JMP I SETUP 

2234 

4455 

NO PRO T, JMS I TYPX 

2235 

2315 

NOPRNT 

2236 

4251 

JMS GTANS 

2237 

52 10 

JMP GOOF 

224 0 

1266 

TAD WD4 

224 1 

3733 

DCA I 14 

2242 

1266 

TAD WD4 

2243 

37 34 

DCA I 15 

2244 

127 1 

TAD VD7 

2245 

3730 

DCA I I 1 

2246 

1272 

TAD WD8 

2247 

3731 

DCA I 12 

2250 

5600 

JMP I SETUP 

225 1 

0000 

GTANS, 0 

2252 

6 03 1 

KSF 

2253 

5252 

JMP .-1 

2254 

6036 

KRB 

2255 

6 046 

TLS 

2256 

1262 

TAD YES 

2257 

7450 

SNA 

226 0 

225 1 

ISZ GTANS 

2261 

5651 

JMP I GTANS 

226 2 

7447 

YES, 0-331 

2263 

4455 

WD1, JMS I TYPX 

2264 

1 1 16 

WD2, 1 1 16 

2265 

5304 

WD3, 5304 

2266 

5272 

WD4, 5272 

2267 

7000 

WD5, NOP 

227 0 

4040 

WD6, 4 04 0 

227 1 

52 17 

VD7, 5217 

2272 

5600 

WD8, 5600 

2273 

3737 

WRONG, 3737; 

2274 

2431 

2431; 

2275 

2 005 

2005; 

2276 

4 027 

4027 ; 

2277 

22 17 

22 17 

23 0 0 

16 07 

16 07,* 

2301 

4001 

4001 ; 

23 02 

1623 

1623; 

2303 

7700 

7700 

2304 

3737 

RITE, 3737; 

2305 

2431 

2431; 

2306 

2005 

2005; 

2307 

4 022 

4022; 

2310 

1107 

1107 

231 1 

1024 

1024; 

2312 

4001 

4001 ; 

2313 

1623 

1623; 

23 14 

7700 

77 00 

2315 

37 37 

NOPRNT, 3737,* 

2316 

16 17 

16 17 ; 

2317 

4023 

4 023; 

2320 

2425 

24 25,* 





2321 

04 05 

04 05 

2322 

1624 

16241 

23 23 

4024 

4 024; 

2324 

3120 

3 12 0; 

2325 

05 17 

05 17; 

2326 

2524 

25241 

2327 

7700 

7700 

2330 

0601 

I 1, CHKANS + 1 

2331 

0620 

I 2, CHKANS+20 

2332 

1063 

I3s TINCT+1 

23 3 3 

07 01 

14, L103 

2334 

07 03 

15, LI 04 

2335 

06 17 

16, CHKANS-M7 
*2400 

24 0 0 

0000 

DIVIDE, 0 

24 01 

7 100 

CLL 

2402 

75 10 

SPA 

24 03 

7 06 0 

CMA CML 

24 04 

3320 

DCA HDIVND 

24 05 

7420 

SNL 

24 06 

7 04 0 

CM A 

24 07 

3323 

DCA SDVND 

2410 

1600 

TAD I DIVIDE 

24 1 1 

7430 

SZL 

24 12 

7 14 1 

CM A CLL I AC 

24 13 

332 1 

DCA LDIVND 

24 14 

7430 

SZL 

24 15 

2320 

ISZ HDIVND 

24 16 

2200 

ISZ DIVIDE 

24 17 

1600 

TAD I DIVIDE 

2420 

7 100 

CLL 

2421 

7500 

SMA 

2422 

7 06 1 

CMA CML I AC 

24 2 3 

3322 

DCA DIVSOR 

24 24 

7420 

SNL 

24 25 

7 04 0 

CM A 

24 26 

1323 

TAD SDVND 

24 27 

3324 

DCA SNSWER 

243 0 

2200 

ISZ DIVIDE 

2431 

1322 

TAD DIVSOR 

24 32 

0327 

AND MASKX 

24 3 3 

7650 

SNA CL A 

24 34 

53 10 

JMP DZERO 

2435 

1320 

TAD HDIVND 

2436 

7640 

SZA CLA 

24 37 

5244 

JMP CONT 

244 0 

1322 

TAD DIVSOR 

244 1 

1321 

TAD LDIVND 

2442 

77 10 

SPA CLA 

2443 

5313 

JMP DF'RAC 

2444 

7 100 

CONT, CLL 

2445 

1322 

TAD DIVSOR 

2446 

1320 

TAD HDIVND 

244 7 

7630 

SZL CLA 

24 5 0 

5600 

JMP I DIVIDE 

2451 

1320 

TAD HDIVND 
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2452 

1322 

TAD DIVSOR 

2453 

7740 

SMA SZA CLA 

2454 

53 11 

JMP DOVER 

2455 

1326 

TAD M 13 

24 56 

3325 

DCA DIVCNT 

24 57 

5270 

JMP DV2 

/ 

/DIVIDE LOOP 

246 0 

1320 

/ 

DV3/ TAD HDIVND 

2461 

7004 

RAL 

2462 

3320 

DCA HDIVND 

24 6 3 

1320 

TAD HDIVND 

2464 

1322 

TAD DIVSOR 

2465 

7430 

SZL 

2466 

3320 

DCA HDIVND 

2467 

7200 

CLA 

24 7 0 

1321 

DV2* TAD LDIVND 

2471 

7004 

RAL 

2472 

3321 

DCA LDIVND 

2473 

2325 

ISZ DIVCNT 

2474 

526 0 

JMP DV3 

247 5 

1320 

TAD HDIVND 

24 7 6 

2323 

ISZ SDVND 

2477 

7 04 1 

CM A I AC 

25 0 0 

3320 

DCA HDIVND 

2501 

1321 

TAD LDIVND 

2502 

75 10 

SPA 

2503 

5316 

JMP QOVER 

2504 

2324 

ISZ SNSWER 

25 05 

7 04 1 

CM A I AC 

2506 

7 100 

CLL 

2507 

5600 

JMP I DIVIDE 

2510 

7240 

DZERO* CLA CM A 

25 i 1 

7 120 

DOVER* STL 

25 12 

5600 

JMP I DIVIDE 

2513 

7 140 

DFRAC* CLL CMA 

2514 

7004 

RAL 

2515 

5311 

JMP DOVER 

25 16 

7200 

QOVER* CLA 

2517 

5311 

JMP DOVER 

25 2 0 

0000 

HDIVND* 0 

2521 

0000 

LDIVND* 0 

252 2 

0000 

DIVSOR* 0 

25 23 

0000 

SDVND* 0 

25 24 

0000 

SNSWER* 0 

2525 

0000 

DIVCNT* 0 

2526 

7763 

M 13* -15 

25 27 

3777 

MASKX* 3777 

2530 

0000 

PER* 0 

2531 

7300 

CLA CLL 

2532 

1062 

TAD PTSTNO 

2533 

1051 

TAD STUDN 

25 34 

3053 

DCA ADDRE1 

2535 

1453 

TAD I ADDRE 1 

2536 

7 004 

RAL 

2537 

3032 

DCA TEMP2 
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254 0 

1032 

TAD 

TEMP2 

254 1 

7 006 

RTL 


2542 

1032 

TAD 

TEMP2 

2543 

3347 

DCA 

N 195+ 1 

2544 

1026 

TAD 

TITEMS 

254 5 

3350 

DCA 

N 195+2 

2546 

4200 

N 195, 

. JMS D 

2547 

0000 

0 


25 5 0 

0000 

0 


2551 

7430 

SZL 


25 5 2 

7200 

CLA 


25 5 3 

3032 

DCA 

TEMP2 

2554 

1320 

TAD 

HDIVND 

25 55 

7004 

RAL 


2556 

3031 

DCA 

TEMPI 

25 57 

1031 

TAD 

TEMPI 

256 0 

7006 

RTL 


256 1 

103 1 

TAD 

TEMPI 

256 2 

3366 

DCA 

N 196+ 1 

2563 

1026 

TAD 

TITEMS 

2564 

3367 

DCA 

N 196 + 2 

2565 

4200 

N 196, 

JMS D 

2566 

0000 

0 


2567 

0000 

0 


257 0 

7430 

SZL 


257 1 

7200 

CLA 


2572 

303 1 

DCA 

TEMPI 

2573 

4 103 

JMS 

NUMPK 

2574 

5730 

JMP 

I PER 
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A 

1276 

ADDCTR 

1326 

ADDN 

1324 

ADDRES 

0027 

ADDRE1 

0053 

/NS 

04 7 7 

/NS ADD 

0046 

/NSBUF 

0020 

/NSKY 

0036 

AUTO 10 

0010 

AUTO 1 1 

0011 

AUTO 14 

0014 

AUTO 15 

0015 

A1 

2077 

A7600 

037 0 

A7750 

037 1 

A7751 

0372 

A7770 

0373 

BACK 

0173 

BACK 2 

0174 

BSW 

7 002 

BUF 

1315 

BUFFPT 

0016 

BUFFST 

0066 

BUF ST 

0035 

B1 

0374 

B2 

0375 

CARD 

1670 

CDRDY 

15 13 

CHKANS 

0600 

OIK 1 

0213 

CHK2 

0300 

CHK3 

0457 

CKANSW 

004 0 

CLASN 

0033 

CNTRLB 

017 1 

CNTRLR 

0172 

OOLCNT 

0730 

CONST 

1755 

CONT 

2444 

OORRCT 

064 3 

CRDADD 

0065 

CRDBUF 

0022 

CRDRD 

0021 

DEC I 

0056 

EFRAC 

25 13 

DIVCNT 

2525 

DIVIDE 

24 00 

DIVSOR 

2522 

DO PART 

17 14 

DOVER 

2511 

DUPSNO 

16 14 

DUPSTN 

1640 

DV2 

2470 

W 3 

246 0 






DZERO 

25 10 

ENDSTS 

0467 

ENDTS 

0565 

ENDTST 

1421 

ENUF 

1756 

ED C 

1740 

FOUR 

0077 

GOOF" 

22 10 

GTms 

2251 

HDIVND 

2520 

HUND 

127 1 

IDECI 

1200 

INCR 

2037 

INMPAC 

0075 

ITOMPS 

0042 

ITOMPT 

0064 

ITPRT 

2043 

IX 

007 3 

11 

2330 

12 

233 1 

13 

2332 

14 

2333 

15 

2334 

16 

2335 

J 

0047 

UMPUP 

0263 

K 

0072 

KEY 

0146 

KEYWRG 

1443 

K12 

1334 

K144 

1332 

K1750 

1323 

K26 0 

1327 

LDIVND 

2521 

LP 

1226 

LP1 

1227 

LP2 

1230 

LI 0 1 

0676 

LI 02 

07 02 

L103 

07 01 

LI 04 

07 03 

MASK 

0063 

MASKX 

2527 

MINUS 

1316 

Ml 

1320 

m3 

2526 

M144 

133 1 

M1750 

1330 

M2 

1325 

M3720 

1322 

M9 

1333 

NO 

0067 

NOPRNT 

23 15 

NO PRO T 

2234 

NORITE 

0043 

NOTRDY 

1747 
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NUMN6 

0057 

NUMPK 

0103 

NUM100 

006 0 

KUM999 

0101 

NI4 

07 31 

N195 

2546 

N196 

2565 

N201 

0205 

N2 02 

0223 

N203 

0254 

N204 

0270 

N205 

0306 

N206 

027 1 

N21 1 

05 17 

N212 

0515 

N2 13 

05 06 

N214 

054 1 

N215 

0537 

N306 

0662 

N307 

07 04 

N308 

0672 

N37 

1757 

N401 

04 2 0 

N4 02 

04 16 

N4 03 

04 07 

N4 04 

044 1 

N4 05 

0437 

N603 

2021 

N6 04 

2054 

OUT 

0342 

P 

0726 

PART 

0024 

PARTX 

0023 

PER 

2530 

FERCNT 

07 16 

FERI 

0034 

PLUS 

1211 

FROBLM 

0044 

PSTNO 

0052 

FTSTNO 

0062 

QBUFFA 

006 1 

OBUFFR 

0050 

€NO 

0054 

QDVER 

25 16 

RBASIC 

1533 

RCRA 

6632 

RCRB 

6634 

RCSD 

667 1 

ROSE 

6672 

RCSF 

6631 

RD 

1701 

REPLY 

0170 

RESET 

1246 

RIGHT 

2221 

rite 

2304 

ktcard 

0547 

SCHEK 

1603 







SCHEKI 

0377 

SDVND 

2523 

SETUP 

2200 

SETUPI 

0076 

»JSWER 

2524 

SPACE 

13 17 

SRTCD 

044 2 

STABUF 

0025 

STADDB 

0045 

STALL 

1743 

STANS 

0037 

START 

0200 

START 1 

1 142 

STNUMW 

1551 

STU 

04 00 

STUDN 

005 1 

STUWRG 

1466 

SW 1 

1321 

TCNUM 

1057 

TCRLF 

1 136 

TEACH 

2000 

TEMPS 

0074 

TEMP0 

1753 

TEMPI 

0031 

TEMPS 

0032 

TEMP3 

0100 

TEMPS 

1754 

TENS 

1301 

TEST 

17 06 

TINCT 

1062 

TITEMS 

0026 

TITLE 

1400 

TKM 125 

1046 

1KM37 

1044 

TK100 

1047 

TK215 

1045 

TK237 

105 0 

TK77 

1035 

TLIST 

1 106 

TLOC 

1625 

TLSX 

1036 

TMPN5 

007 1 

TMPN9 

007 0 

TMPSTN 

0102 

TOUTOF 

1100 

TPDIG 

1262 

TPER 

074 0 

TPERCT 

107 1 

TPRTOT 

004 1 

TQUES 

1 120 

TSPACE 

0732 

TSTNO 

0030 

TSTNUM 

1 137 

TTNUM 

105 1 

TYPE 

1000 

TYPE 1 

1307 

TYPNT 

1015 
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TYPX 

0055 

TVFX 1 

1006 

TYPY 

1016 

TYFY1 

1030 

WD1 

2263 

WD2 

2264 

WD3 

2265 

WD4 

2266 

WD5 

2267 

WD6 

2270 

WD7 

227 1 

WD8 

2272 

WRONG 

2273 

X7700 

1 156 

YASCII 

0376 

YES 

2262 

ZSTUNO 

1626 
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